home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-04-05 | 49.4 KB | 1,857 lines |
- object WPCForm: TWPCForm
- Left = 231
- Top = 109
- Width = 569
- Height = 453
- Caption = 'Web Page Creator'
- Color = clSilver
- Font.Color = clWindowText
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsMDIForm
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poDefault
- WindowState = wsMaximized
- WindowMenu = Window1
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 20
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 0
- Width = 561
- Height = 178
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- Align = alTop
- TabOrder = 0
- object Panel2: TPanel
- Left = 0
- Top = 85
- Width = 557
- Height = 35
- Align = alTop
- Color = clSilver
- TabOrder = 0
- Visible = False
- object SpeedButton42: TSpeedButton
- Left = 8
- Top = 5
- Width = 190
- Height = 25
- Hint = 'Required For Forms'
- Caption = 'Form Body'
- Font.Color = clBlue
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton42Click
- end
- object SpeedButton43: TSpeedButton
- Left = 205
- Top = 5
- Width = 188
- Height = 25
- Hint = 'Where To Mail The Completed Form'
- Caption = 'Mail To'
- Font.Color = clBlue
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton43Click
- end
- object SpeedButton44: TSpeedButton
- Left = 403
- Top = 5
- Width = 190
- Height = 25
- Hint = 'Subject Of The Form'
- Caption = 'Mail Subject'
- Font.Color = clBlue
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton44Click
- end
- object SpeedButton45: TSpeedButton
- Left = 601
- Top = 5
- Width = 190
- Height = 25
- Hint = 'Define Input Areas'
- Caption = 'Input'
- Font.Color = clBlue
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton45Click
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 557
- Height = 85
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- end
- object Panel3: TPanel
- Left = 0
- Top = 120
- Width = 557
- Height = 35
- Align = alTop
- TabOrder = 2
- Visible = False
- object SpeedButton47: TSpeedButton
- Left = 10
- Top = 4
- Width = 38
- Height = 27
- Caption = '1'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton47Click
- end
- object SpeedButton48: TSpeedButton
- Left = 49
- Top = 4
- Width = 37
- Height = 27
- Caption = '2'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton48Click
- end
- object SpeedButton49: TSpeedButton
- Left = 88
- Top = 4
- Width = 37
- Height = 27
- Caption = '3'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton49Click
- end
- object SpeedButton50: TSpeedButton
- Left = 128
- Top = 4
- Width = 36
- Height = 27
- Caption = '4'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton50Click
- end
- object SpeedButton51: TSpeedButton
- Left = 166
- Top = 4
- Width = 37
- Height = 27
- Caption = '5'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton51Click
- end
- object SpeedButton52: TSpeedButton
- Left = 205
- Top = 4
- Width = 38
- Height = 27
- Caption = '6'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton52Click
- end
- object SpeedButton53: TSpeedButton
- Left = 244
- Top = 4
- Width = 37
- Height = 27
- Caption = '7'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton53Click
- end
- object SpeedButton54: TSpeedButton
- Left = 283
- Top = 4
- Width = 37
- Height = 27
- Caption = '8'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton54Click
- end
- object SpeedButton55: TSpeedButton
- Left = 323
- Top = 4
- Width = 36
- Height = 27
- Caption = '9'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton55Click
- end
- object SpeedButton56: TSpeedButton
- Left = 361
- Top = 4
- Width = 37
- Height = 27
- Caption = '10'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton56Click
- end
- object SpeedButton57: TSpeedButton
- Left = 400
- Top = 4
- Width = 38
- Height = 27
- Caption = '11'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton57Click
- end
- object SpeedButton58: TSpeedButton
- Left = 439
- Top = 4
- Width = 37
- Height = 27
- Caption = '12'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton58Click
- end
- object SpeedButton59: TSpeedButton
- Left = 478
- Top = 4
- Width = 37
- Height = 27
- Caption = '13'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton59Click
- end
- object SpeedButton60: TSpeedButton
- Left = 518
- Top = 4
- Width = 36
- Height = 27
- Caption = '14'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton60Click
- end
- object SpeedButton61: TSpeedButton
- Left = 556
- Top = 4
- Width = 37
- Height = 27
- Caption = '15'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton61Click
- end
- object SpeedButton62: TSpeedButton
- Left = 595
- Top = 4
- Width = 38
- Height = 27
- Caption = '16'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton62Click
- end
- object SpeedButton63: TSpeedButton
- Left = 634
- Top = 4
- Width = 37
- Height = 27
- Caption = '17'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton63Click
- end
- object SpeedButton64: TSpeedButton
- Left = 673
- Top = 4
- Width = 37
- Height = 27
- Caption = '18'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton64Click
- end
- object SpeedButton65: TSpeedButton
- Left = 713
- Top = 4
- Width = 36
- Height = 27
- Caption = '19'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton65Click
- end
- object SpeedButton66: TSpeedButton
- Left = 751
- Top = 4
- Width = 37
- Height = 27
- Caption = '20'
- Font.Color = clFuchsia
- Font.Height = -18
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = SpeedButton66Click
- end
- end
- object GroupBox6: TGroupBox
- Left = 5
- Top = 1
- Width = 89
- Height = 78
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- object SpeedButton10: TSpeedButton
- Left = 5
- Top = 19
- Width = 25
- Height = 25
- Hint = 'New File'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
- 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
- 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = New1Click
- end
- object SpeedButton11: TSpeedButton
- Left = 33
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Open File'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555555555555555
- 555555555555555555555555555555555555555FFFFFFFFFF555550000000000
- 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
- B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
- 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
- 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
- 55555575FFF75555555555700007555555555557777555555555555555555555
- 55555555555555555555555555555555555555555555555555550000}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Open1Click
- end
- object SpeedButton13: TSpeedButton
- Left = 5
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Save File'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555555555555555
- 55555555FFFFFFFFFF5555500000000005555557777777777F55550BFBFBFBFB
- 0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
- 0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
- 0555557F555555557F55550FBFBFBFBF0555557FFFFFFFFF7555550000000000
- 555555777777777755555550FBFB0555555555575FFF75555555555700007555
- 5555555577775555555555555555555555555555555555555555555555555555
- 55555555555555555555555555555555555555555555555555550000}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton13Click
- end
- object SpeedButton15: TSpeedButton
- Left = 33
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Save File As'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
- 7700333333337777777733333333008088003333333377F73377333333330088
- 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
- 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
- FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
- 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
- 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
- 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
- 93337FFFF7737777733300000033333333337777773333333333}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton15Click
- end
- object SpeedButton16: TSpeedButton
- Left = 59
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Close File'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
- 3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
- B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
- 33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
- 000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
- 033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
- BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
- 33B33733333773333373B333333B3333333B7333333733333337}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton16Click
- end
- object SpeedButton12: TSpeedButton
- Left = 59
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Print File'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton12Click
- end
- end
- object GroupBox2: TGroupBox
- Left = 98
- Top = 1
- Width = 196
- Height = 78
- Caption = 'Text Attributes'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- object SpeedButton7: TSpeedButton
- Left = 5
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Bold Text'
- Caption = 'Bd'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Bold1Click
- end
- object SpeedButton8: TSpeedButton
- Left = 33
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Italic Text'
- Caption = 'It'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Italic1Click
- end
- object SpeedButton9: TSpeedButton
- Left = 86
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Comment'
- Caption = 'Cm'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Comment1Click
- end
- object SpeedButton14: TSpeedButton
- Left = 86
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Blinking Text'
- Caption = 'Bl'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Blinking1Click
- end
- object SpeedButton33: TSpeedButton
- Left = 5
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Strong Emphasis'
- Caption = 'St'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Strong1Click
- end
- object SpeedButton34: TSpeedButton
- Left = 59
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Citation'
- Caption = 'Ci'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Citation1Click
- end
- object SpeedButton35: TSpeedButton
- Left = 33
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Typographic Emphasis'
- Caption = 'Em'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Emphasis1Click
- end
- object SpeedButton41: TSpeedButton
- Left = 59
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Coded Text'
- Caption = 'Co'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Code1Click
- end
- object SpeedButton67: TSpeedButton
- Left = 113
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Fonts'
- Caption = 'Fo'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Font1Click
- end
- object SpeedButton3: TSpeedButton
- Left = 113
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Underline'
- Caption = 'Ul'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Underline1Click
- end
- object SpeedButton4: TSpeedButton
- Left = 140
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Sample Text'
- Caption = 'Sa'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Sample1Click
- end
- object SpeedButton5: TSpeedButton
- Left = 168
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Keyboard Text'
- Caption = 'Kb'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Keyboard1Click
- end
- object SpeedButton6: TSpeedButton
- Left = 140
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Variable Text'
- Caption = 'Va'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Variable1Click
- end
- object SpeedButton17: TSpeedButton
- Left = 168
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Definition Text'
- Caption = 'De'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Definition1Click
- end
- end
- object GroupBox3: TGroupBox
- Left = 298
- Top = 1
- Width = 142
- Height = 78
- Caption = 'Format'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- object SpeedButton18: TSpeedButton
- Left = 5
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Paragraph Break'
- Caption = 'Pa'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Paragraph1Click
- end
- object SpeedButton19: TSpeedButton
- Left = 33
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Horizontal Rule'
- Caption = 'Hr'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = HorizontalRule1Click
- end
- object SpeedButton20: TSpeedButton
- Left = 33
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Center Line'
- Caption = 'Ce'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = CenterLine1Click
- end
- object SpeedButton21: TSpeedButton
- Left = 59
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Preformatted Text'
- Caption = 'Pf'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Preformatted1Click
- end
- object SpeedButton36: TSpeedButton
- Left = 5
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Forced Line Break'
- Caption = 'Br'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = ForcedLineBreak1Click
- end
- object SpeedButton37: TSpeedButton
- Left = 59
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Address Block'
- Caption = 'Ab'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = AddressBlock1Click
- end
- object SpeedButton39: TSpeedButton
- Left = 86
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Block Quote'
- Caption = 'Bq'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = BlockQuote1Click
- end
- object SpeedButton46: TSpeedButton
- Left = 86
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Last Modified'
- Caption = 'Lm'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = LastModified1Click
- end
- object SpeedButton1: TSpeedButton
- Left = 113
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Header 1-6'
- Caption = 'He'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Header1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 113
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Horizontal Tab'
- Caption = 'Ht'
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = HorizontalTab1Click
- end
- end
- object GroupBox4: TGroupBox
- Left = 443
- Top = 1
- Width = 90
- Height = 78
- Caption = 'Lists'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- object SpeedButton22: TSpeedButton
- Left = 5
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Numbered List'
- Caption = 'Nl'
- Font.Color = clNavy
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = NumberedList1Click
- end
- object SpeedButton23: TSpeedButton
- Left = 5
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Unnumbered List'
- Caption = 'Ul'
- Font.Color = clNavy
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = UnnumberedList1Click
- end
- object SpeedButton24: TSpeedButton
- Left = 33
- Top = 19
- Width = 25
- Height = 25
- Hint = 'Definition List'
- Caption = 'Dl'
- Font.Color = clNavy
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = DefinitionList1Click
- end
- object SpeedButton40: TSpeedButton
- Left = 61
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Menu'
- Caption = 'Me'
- Font.Color = clNavy
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Menu1Click
- end
- object SpeedButton38: TSpeedButton
- Left = 33
- Top = 46
- Width = 25
- Height = 25
- Hint = 'Directory List'
- Caption = 'Di'
- Font.Color = clNavy
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Directory1Click
- end
- end
- object GroupBox5: TGroupBox
- Left = 536
- Top = 1
- Width = 260
- Height = 78
- TabOrder = 7
- object SpeedButton25: TSpeedButton
- Left = 5
- Top = 46
- Width = 53
- Height = 25
- Hint = 'Graphics File'
- Caption = 'Image'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Image1Click
- end
- object SpeedButton26: TSpeedButton
- Left = 60
- Top = 19
- Width = 58
- Height = 25
- Hint = 'Hyperlinks'
- Caption = 'Link'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = URL1Click
- end
- object SpeedButton27: TSpeedButton
- Left = 5
- Top = 19
- Width = 53
- Height = 25
- Hint = 'Background Appearance'
- Caption = 'Back'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Background1Click
- end
- object SpeedButton29: TSpeedButton
- Left = 120
- Top = 19
- Width = 55
- Height = 25
- Hint = 'Tables'
- Caption = 'Table'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Tables1Click
- end
- object SpeedButton30: TSpeedButton
- Left = 60
- Top = 46
- Width = 58
- Height = 25
- Hint = 'Link Anchors'
- Caption = 'Anchor'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Targets1Click
- end
- object SpeedButton31: TSpeedButton
- Left = 178
- Top = 19
- Width = 75
- Height = 25
- Hint = 'Special Symbols'
- Caption = 'Symbol'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Symbols1Click
- end
- object SpeedButton32: TSpeedButton
- Left = 120
- Top = 46
- Width = 55
- Height = 25
- Hint = 'Toggle Form Create Bar'
- Caption = 'Forms'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton32Click
- end
- object SpeedButton28: TSpeedButton
- Left = 178
- Top = 46
- Width = 76
- Height = 25
- Hint = 'View a GIF Image'
- Caption = 'View GIF'
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton28Click
- end
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 382
- Width = 561
- Height = 25
- Align = alBottom
- Alignment = taLeftJustify
- BorderWidth = 2
- Font.Color = clBlack
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Visible = False
- object Panel5: TPanel
- Left = 3
- Top = 3
- Width = 110
- Height = 19
- Align = alLeft
- BevelInner = bvLowered
- BevelOuter = bvNone
- TabOrder = 0
- end
- object Panel6: TPanel
- Left = 113
- Top = 3
- Width = 80
- Height = 19
- Align = alLeft
- BevelInner = bvLowered
- BevelOuter = bvNone
- TabOrder = 1
- end
- object Panel7: TPanel
- Left = 193
- Top = 3
- Width = 112
- Height = 19
- Align = alLeft
- BevelInner = bvLowered
- BevelOuter = bvNone
- TabOrder = 2
- end
- object Panel9: TPanel
- Left = 305
- Top = 3
- Width = 120
- Height = 19
- Align = alLeft
- BevelInner = bvLowered
- BevelOuter = bvNone
- TabOrder = 3
- end
- object Panel10: TPanel
- Left = 425
- Top = 3
- Width = 80
- Height = 19
- Align = alLeft
- BevelInner = bvLowered
- BevelOuter = bvNone
- TabOrder = 4
- end
- object Panel8: TPanel
- Left = 505
- Top = 3
- Width = 293
- Height = 20
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- TabOrder = 5
- end
- end
- object MainMenu1: TMainMenu
- Left = 8
- Top = 184
- object File1: TMenuItem
- Caption = '&File'
- GroupIndex = 1
- ShortCut = 0
- OnClick = File1Click
- object NewProject1: TMenuItem
- Caption = 'New &Project'
- Enabled = False
- ShortCut = 0
- OnClick = NewProject1Click
- end
- object OpenProject1: TMenuItem
- Caption = 'Open P&roject'
- Enabled = False
- ShortCut = 0
- OnClick = OpenProject1Click
- end
- object N4: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object New1: TMenuItem
- Caption = '&New File'
- ShortCut = 0
- OnClick = New1Click
- end
- object Open1: TMenuItem
- Caption = '&Open File'
- ShortCut = 0
- OnClick = Open1Click
- end
- object N5: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 0
- OnClick = Exit1Click
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- GroupIndex = 2
- ShortCut = 0
- OnClick = Edit1Click
- object Cut1: TMenuItem
- Caption = '&Cut'
- ShortCut = 0
- OnClick = Cut1Click
- end
- object Copy1: TMenuItem
- Caption = 'C&opy'
- ShortCut = 0
- OnClick = Copy1Click
- end
- object Paste1: TMenuItem
- Caption = '&Paste'
- ShortCut = 0
- OnClick = Paste1Click
- end
- object Delete1: TMenuItem
- Caption = '&Delete'
- ShortCut = 0
- OnClick = Delete1Click
- end
- object Search1: TMenuItem
- Caption = '&Search'
- ShortCut = 113
- OnClick = Search1Click
- end
- object SearchNext1: TMenuItem
- Caption = 'Search &Next'
- ShortCut = 114
- OnClick = SearchNext1Click
- end
- object Replace1: TMenuItem
- Caption = '&Replace'
- ShortCut = 115
- OnClick = Replace1Click
- end
- object test1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Undo1: TMenuItem
- Caption = '&Undo'
- Enabled = False
- ShortCut = 0
- OnClick = Undo1Click
- end
- object Redo1: TMenuItem
- Caption = 'R&edo'
- Enabled = False
- ShortCut = 0
- OnClick = Redo1Click
- end
- end
- object HTML1: TMenuItem
- Caption = '&HTML'
- GroupIndex = 3
- ShortCut = 0
- object Background1: TMenuItem
- Caption = '&Background'
- ShortCut = 0
- OnClick = Background1Click
- end
- object Image1: TMenuItem
- Caption = '&Image'
- ShortCut = 0
- OnClick = Image1Click
- end
- object URL1: TMenuItem
- Caption = '&URL'
- ShortCut = 0
- OnClick = URL1Click
- end
- object Targets1: TMenuItem
- Caption = '&Anchors'
- ShortCut = 0
- OnClick = Targets1Click
- end
- object Header1: TMenuItem
- Caption = '&Header'
- ShortCut = 0
- OnClick = Header1Click
- end
- object Lists1: TMenuItem
- Caption = '&Lists'
- ShortCut = 0
- object NumberedList1: TMenuItem
- Caption = '&Numbered List'
- ShortCut = 0
- OnClick = NumberedList1Click
- end
- object UnnumberedList1: TMenuItem
- Caption = '&Unnumbered List'
- ShortCut = 0
- OnClick = UnnumberedList1Click
- end
- object DefinitionList1: TMenuItem
- Caption = '&Definition List'
- ShortCut = 0
- OnClick = DefinitionList1Click
- end
- object Menu1: TMenuItem
- Caption = '&Menu'
- ShortCut = 0
- OnClick = Menu1Click
- end
- object Directory1: TMenuItem
- Caption = 'D&irectory'
- ShortCut = 0
- OnClick = Directory1Click
- end
- end
- object Format1: TMenuItem
- Caption = '&Format'
- ShortCut = 0
- object ForcedLineBreak1: TMenuItem
- Caption = '&Forced Line Break'
- ShortCut = 0
- OnClick = ForcedLineBreak1Click
- end
- object Paragraph1: TMenuItem
- Caption = '&Paragraph'
- ShortCut = 0
- OnClick = Paragraph1Click
- end
- object HorizontalTab1: TMenuItem
- Caption = '&Horizontal Tab'
- ShortCut = 0
- OnClick = HorizontalTab1Click
- end
- object CenterLine1: TMenuItem
- Caption = '&Center Line'
- ShortCut = 0
- OnClick = CenterLine1Click
- end
- object HorizontalRule1: TMenuItem
- Caption = 'Hori&zontal Rule'
- ShortCut = 0
- OnClick = HorizontalRule1Click
- end
- object Preformatted1: TMenuItem
- Caption = 'P&reformatted Text'
- ShortCut = 0
- OnClick = Preformatted1Click
- end
- object AddressBlock1: TMenuItem
- Caption = '&Address Block'
- ShortCut = 0
- OnClick = AddressBlock1Click
- end
- object BlockQuote1: TMenuItem
- Caption = 'Block &Quote'
- ShortCut = 0
- OnClick = BlockQuote1Click
- end
- object LastModified1: TMenuItem
- Caption = '&Last Modified'
- ShortCut = 0
- OnClick = LastModified1Click
- end
- end
- object Tables1: TMenuItem
- Caption = 'Tabl&es'
- ShortCut = 0
- OnClick = Tables1Click
- end
- object TextFormat1: TMenuItem
- Caption = 'Te&xt Format'
- ShortCut = 0
- object Bold1: TMenuItem
- Caption = '&Bold'
- ShortCut = 0
- OnClick = Bold1Click
- end
- object Italic1: TMenuItem
- Caption = '&Italic'
- ShortCut = 0
- OnClick = Italic1Click
- end
- object Strong1: TMenuItem
- Caption = '&Strong'
- ShortCut = 0
- OnClick = Strong1Click
- end
- object Emphasis1: TMenuItem
- Caption = 'E&mphasis'
- ShortCut = 0
- OnClick = Emphasis1Click
- end
- object Citation1: TMenuItem
- Caption = '&Citation'
- ShortCut = 0
- OnClick = Citation1Click
- end
- object Code1: TMenuItem
- Caption = 'C&ode'
- ShortCut = 0
- OnClick = Code1Click
- end
- object Blinking1: TMenuItem
- Caption = 'B&linking'
- ShortCut = 0
- OnClick = Blinking1Click
- end
- object Underline1: TMenuItem
- Caption = '&Underline'
- ShortCut = 0
- OnClick = Underline1Click
- end
- object Comment1: TMenuItem
- Caption = 'Co&mment'
- ShortCut = 0
- OnClick = Comment1Click
- end
- object Sample1: TMenuItem
- Caption = 'S&le'
- ShortCut = 0
- OnClick = Sample1Click
- end
- object Keyboard1: TMenuItem
- Caption = '&Keyboard'
- ShortCut = 0
- OnClick = Keyboard1Click
- end
- object Variable1: TMenuItem
- Caption = '&Variable'
- ShortCut = 0
- OnClick = Variable1Click
- end
- object Definition1: TMenuItem
- Caption = '&Definition'
- ShortCut = 0
- OnClick = Definition1Click
- end
- end
- object Symbols1: TMenuItem
- Caption = 'S&ymbols'
- ShortCut = 0
- OnClick = Symbols1Click
- end
- object Form1: TMenuItem
- Caption = 'For&ms'
- ShortCut = 0
- object FormBody1: TMenuItem
- Caption = 'Form &Body'
- ShortCut = 0
- OnClick = FormBody1Click
- end
- object MailTo1: TMenuItem
- Caption = 'Mail &To'
- ShortCut = 0
- OnClick = MailTo1Click
- end
- object MailSubject1: TMenuItem
- Caption = 'Mail &Subject'
- ShortCut = 0
- OnClick = MailSubject1Click
- end
- object Input1: TMenuItem
- Caption = '&Input'
- ShortCut = 0
- OnClick = Input1Click
- end
- end
- object Font1: TMenuItem
- Caption = 'Fo&nt'
- ShortCut = 0
- OnClick = Font1Click
- end
- object Base1: TMenuItem
- Caption = 'Ba&se'
- ShortCut = 0
- OnClick = Base1Click
- end
- end
- object Frame1: TMenuItem
- Caption = 'F&rame'
- GroupIndex = 3
- ShortCut = 0
- object NewFramePage1: TMenuItem
- Caption = '&New Frame Page'
- ShortCut = 0
- OnClick = NewFramePage1Click
- end
- object FrameSet1: TMenuItem
- Caption = 'Frame&Set'
- ShortCut = 0
- OnClick = FrameSet1Click
- end
- object Frame2: TMenuItem
- Caption = '&Frame'
- ShortCut = 0
- OnClick = Frame2Click
- end
- object NoFrames1: TMenuItem
- Caption = 'N&o Frames'
- ShortCut = 0
- OnClick = NoFrames1Click
- end
- end
- object Browser1: TMenuItem
- Caption = '&Browser'
- GroupIndex = 4
- ShortCut = 0
- OnClick = Browser1Click
- end
- object View1: TMenuItem
- Caption = '&View'
- GroupIndex = 4
- ShortCut = 0
- object FormToolbar1: TMenuItem
- Caption = 'Form Toolbar'
- ShortCut = 0
- OnClick = FormToolbar1Click
- end
- object UserToolbar1: TMenuItem
- Caption = 'User Toolbar'
- ShortCut = 0
- OnClick = UserToolbar1Click
- end
- end
- object Window1: TMenuItem
- Caption = '&Window'
- GroupIndex = 5
- ShortCut = 0
- object Cascade1: TMenuItem
- Caption = '&Cascade'
- ShortCut = 0
- OnClick = Cascade1Click
- end
- object Tile1: TMenuItem
- Caption = '&Tile'
- ShortCut = 0
- OnClick = Tile1Click
- end
- end
- object Options1: TMenuItem
- Caption = '&Options'
- GroupIndex = 6
- ShortCut = 0
- OnClick = Options1Click
- object DefineToolbar1: TMenuItem
- Caption = '&Define Toolbar'
- ShortCut = 0
- object Edit2: TMenuItem
- Caption = '&Edit'
- ShortCut = 0
- OnClick = Edit2Click
- end
- object Load1: TMenuItem
- Caption = '&Load'
- ShortCut = 0
- OnClick = Load1Click
- end
- end
- object Browser2: TMenuItem
- Caption = '&Browser'
- ShortCut = 0
- OnClick = Browser2Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ExampleText1: TMenuItem
- Caption = 'E&xample Text'
- Checked = True
- Enabled = False
- ShortCut = 0
- OnClick = ExampleText1Click
- end
- object CreateBackupFile1: TMenuItem
- Caption = 'Cr&eate Backup File'
- Checked = True
- Enabled = False
- ShortCut = 0
- OnClick = CreateBackupFile1Click
- end
- object Wordwrap1: TMenuItem
- Caption = '&Wordwrap'
- Checked = True
- Enabled = False
- ShortCut = 0
- OnClick = Wordwrap1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object DocumentFont1: TMenuItem
- Caption = '&Font'
- Enabled = False
- ShortCut = 0
- OnClick = DocumentFont1Click
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Register1: TMenuItem
- Caption = '&Register'
- ShortCut = 0
- OnClick = Register1Click
- end
- end
- object About1: TMenuItem
- Caption = '&About'
- GroupIndex = 6
- ShortCut = 0
- OnClick = About1Click
- end
- object Help1: TMenuItem
- Caption = '&Help'
- GroupIndex = 7
- ShortCut = 0
- OnClick = Help1Click
- end
- end
- object SaveDialog1: TSaveDialog
- FileEditStyle = fsEdit
- Filter =
- 'Web Pages (*.HTML)|*.html|Web Pages (*.htm)|*.htm|Project Files ' +
- '(*.pro)|*.pro|All Files (*.*)|*.*'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- Left = 8
- Top = 216
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Filter =
- 'Web Pages (*.html)|*.html|Web Pages (*.htm)|*.htm|All Files (*.*' +
- ')|*.*'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Left = 40
- Top = 216
- end
- object PrinterSetupDialog1: TPrinterSetupDialog
- Left = 40
- Top = 312
- end
- object ReplaceDialog1: TReplaceDialog
- Options = [frDown, frReplace]
- OnFind = FindDialog1Find
- OnReplace = ReplaceDialog1Replace
- Left = 40
- Top = 248
- end
- object FindDialog1: TFindDialog
- OnFind = FindDialog1Find
- Left = 8
- Top = 248
- end
- object FontDialog1: TFontDialog
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Options = [fdEffects, fdForceFontExist]
- Left = 8
- Top = 280
- end
- object DdeClientConv1: TDdeClientConv
- ConnectMode = ddeManual
- Left = 8
- Top = 312
- end
- end
-